home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPG10.ZIP / 196.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-16  |  2KB  |  205 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     Gosub LABEL006
  36.     Gosub LABEL001
  37.     End
  38.     :LABEL001
  39.     Gosub LABEL002
  40.     INTEGER001 = 1
  41.     Gosub LABEL005
  42.     BOOLEAN001 = 0
  43.     While (BOOLEAN001 == 0) Do
  44.         STRING001 = Asc(Inkey())
  45.         If (STRING001 == 13) Then
  46.             BOOLEAN001 = 1
  47.             Continue
  48.         Endif
  49.         If ((STRING001 == 76) || (STRING001 == 44)) Then
  50.             Gosub LABEL004
  51.             Dec INTEGER001
  52.             If (INTEGER001 < 1) INTEGER001 = 3
  53.             Gosub LABEL005
  54.             Continue
  55.         Endif
  56.         If ((STRING001 == 82) || (STRING001 == 46)) Then
  57.             Gosub LABEL004
  58.             Inc INTEGER001
  59.             If (INTEGER001 > 3) INTEGER001 = 1
  60.             Gosub LABEL005
  61.             Continue
  62.         Endif
  63.         If ((STRING001 == 67) || (STRING001 == 99)) Then
  64.             Gosub LABEL004
  65.             INTEGER001 = 1
  66.             Gosub LABEL005
  67.             BOOLEAN001 = 1
  68.             Continue
  69.         Endif
  70.         If ((STRING001 == 78) || (STRING001 == 110)) Then
  71.             Gosub LABEL004
  72.             INTEGER001 = 2
  73.             Gosub LABEL005
  74.             BOOLEAN001 = 1
  75.             Continue
  76.         Endif
  77.         If ((STRING001 == 83) || (STRING001 == 115)) Then
  78.             Gosub LABEL004
  79.             INTEGER001 = 3
  80.             Gosub LABEL005
  81.             BOOLEAN001 = 1
  82.         Endif
  83.     EndWhile
  84.     Gosub LABEL003
  85.     Return
  86.     :LABEL002
  87.     Print ReadLine(PPEPath() + "196.CFG", 1)
  88.     INTEGER002 = GetY()
  89.     INTEGER003 = GetX()
  90.     Print STRING002 + "  "
  91.     INTEGER004 = GetX()
  92.     Print STRING003 + "  "
  93.     INTEGER005 = GetX()
  94.     Print STRING004
  95.     Return
  96.     :LABEL003
  97.     Select Case (INTEGER001)
  98.         Case 1
  99.             KbdStuff "Y" + Chr(13)
  100.         Case 2
  101.             KbdStuff "NS" + Chr(13)
  102.         Case 3
  103.             KbdStuff "N" + Chr(13)
  104.     End Select
  105.     ClrEol
  106.     Print Chr(13)
  107.     ClrEol
  108.     Print Chr(13)
  109.     End
  110.     Return
  111.     :LABEL004
  112.     Select Case (INTEGER001)
  113.         Case 1
  114.             Print Chr(13)
  115.             Forward INTEGER003 - 1
  116.             Print STRING002
  117.         Case 2
  118.             Print Chr(13)
  119.             Forward INTEGER004 - 1
  120.             Print STRING003
  121.         Case 3
  122.             Print Chr(13)
  123.             Forward INTEGER005 - 1
  124.             Print STRING004
  125.     End Select
  126.     Return
  127.     :LABEL005
  128.     Select Case (INTEGER001)
  129.         Case 1
  130.             Print Chr(13)
  131.             Forward INTEGER003 - 1
  132.             Print STRING005
  133.         Case 2
  134.             Print Chr(13)
  135.             Forward INTEGER004 - 1
  136.             Print STRING006
  137.         Case 3
  138.             Print Chr(13)
  139.             Forward INTEGER005 - 1
  140.             Print STRING007
  141.     End Select
  142.     Return
  143.     :LABEL006
  144.     STRING002 = ReadLine(PPEPath() + "196.CFG", 2)
  145.     STRING003 = ReadLine(PPEPath() + "196.CFG", 3)
  146.     STRING004 = ReadLine(PPEPath() + "196.CFG", 4)
  147.     STRING005 = ReadLine(PPEPath() + "196.CFG", 5)
  148.     STRING006 = ReadLine(PPEPath() + "196.CFG", 6)
  149.     STRING007 = ReadLine(PPEPath() + "196.CFG", 7)
  150.     Return
  151.  
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Usage report (before postprocessing)
  155. ;
  156. ; ■ Statements used :
  157. ;
  158. ;    2       End
  159. ;    2       ClrEol
  160. ;    28      Goto 
  161. ;    22      Let 
  162. ;    18      Print 
  163. ;    18      If 
  164. ;    15      Gosub 
  165. ;    6       Return
  166. ;    1       Inc 
  167. ;    1       Dec 
  168. ;    3       KbdStuff 
  169. ;    6       Forward 
  170. ;
  171. ;
  172. ; ■ Functions used :
  173. ;
  174. ;    12      +
  175. ;    6       -
  176. ;    21      ==
  177. ;    1       <
  178. ;    1       >
  179. ;    16      !
  180. ;    5       ||
  181. ;    11      Chr()
  182. ;    1       Asc()
  183. ;    1       Inkey()
  184. ;    7       PPEPath()
  185. ;    7       ReadLine()
  186. ;    3       GetX()
  187. ;    1       GetY()
  188. ;
  189. ;------------------------------------------------------------------------------
  190. ;
  191. ; Analysis flags : No flag
  192. ;
  193. ;------------------------------------------------------------------------------
  194. ;
  195. ; Postprocessing report
  196. ;
  197. ;    0       For/Next
  198. ;    1       While/EndWhile
  199. ;    6       If/Then or If/Then/Else
  200. ;    3       Select Case
  201. ;
  202. ;------------------------------------------------------------------------------
  203. ;                 AEGiS Corp - Break the routines, code against the machines!
  204. ;------------------------------------------------------------------------------
  205.